home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL46.PRO < prev    next >
Encoding:
Prolog Source  |  1986-10-07  |  286 b   |  17 lines
  1. /* Program 46 */
  2. /*
  3.   Goal to be entered is on page 104 of the manual.
  4. */
  5.  
  6. domains
  7.     charlist=char*
  8.  
  9. predicates
  10.     string_chlist(string,charlist)
  11.  
  12. clauses
  13.     string_chlist("",[]).
  14.     string_chlist(S,[H|T]):-
  15.         frontchar(S,H,S1),
  16.         string_chlist(S1,T).
  17.